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;DC11 &-E DEC/X11 EXERCISER MODULE 

r .2!! a P <QCAG >,174000,3Q0-5 g .,128 8 ,24 
HODULK 140Q00,f)CAG ,ll40o6, §56,5,;£l28 e , 24 

zUZkS S&JS.SF'J 11 system' exerciser mo6ulr 

I DDXCOSS VERSION 6 23-MAY-78 

• **-* 1***^*4 *£*&#* I***.* 

BEGINS 
043501 040 MODNAM 

xflag: 
addr: 

VECTOR: 
BR1: 



000000 

000000 
000000 
000434' 
000000 



**a*ft****ft*ft***#******ft*a**ft#*** aft fr* ft *^a fta&ftft * ft ^ 



ASCII /DCAG / JMODULE 



BYTE OPE*f 
740"-" 



BR2: 
DVID1: 

SRl: 

SR2: 
SR3: 

STAT: 

init: 
spotht: 

PASCNT: 
ICONT: 

icount: 

SQFCNT: 

hrdcnt: 

SOFPAS: 
HRDPAS: 

syscht: 
r&nnum: 
cqhfig: 
resi: 

RES2: 

syro: 

SVRl: 

SVR2: 

SVR3: 
SYR4: 
SYR5: 
SYR6: 

csra: 

SBADR: 

acsr: 

aaSADRs 

ASTAT? 

ERRTYP: 

ASB: 

auas: 

RSTRT: 



174000*0 
300+0 
.BYTE 
-BYTE 

+1 

OPEN 
OPEN 
OPEN 
OPEN 

140000 

START 

KODSP 



128. 



PRTY5+0 
PRTY+0 



** &*& ®s* «r *■& ****»**#* ; 







OPEN 

OPEN 

OP EM 

OPEN 

OPEN 

OPEN 

OPEN 

OPE1 

OPEN 

OPE*f 



OPEN 
OPEN 
RESTRf 
OPEN 



NAME. 

;USED TO KEEP TRACK OF WBUFF USAGE 

;1ST DEYICE ADDR. 

?1ST DEYICE YFCTOR. 

;1ST BR LEVEL. 

?2ND BR LEVEL. 

;DEVICE INDICATOR 1. 

?S«ITCH REGISTER 1 

;SWTTCH REGISTER 2 

fSHITCH REGISTER 3 

tfUXH.!SSIKf8.J„„. m *„ 

1STATUS WORD. 
;MODULE START ADDR. 

JHffl l Bo8Ha. roi,, " B - 

;# OF ITERATIONS PER PASS=128. 
;LOC TO COUNT ITERATIONS 
?LOC TO SAVE TOTAL SOFT ERRORS 
?LOC TO SAVE TOTAL HARD ERRORS 
;LOC TO SAVE SOFT ERRORS PER PASS 
JLOC TO SAVE HARD ERRORS PER PASS 



«»ftfe*»*t««rft 



J OEo S X? ERRORS ACCUMULATED 
; HOLDS RANDOM 1 WHEN PAND ~ 
; RESERVED FOR MONITOR USE 



HOLDS RANDOM # WHEN PAND HBCRO IS CALLED 



;reservfd for monitor use 



PRESERVED FOR MONITOR USE 
JLOC TO SAVE R0- 
;LOC TO SAVE Ri. 



?loc to save r2. 

;loc to save r3. 

;loc to save r4. 

;loc to save rs. 

jloc to save r6. 

?addr of current csr. 

jaddr of good data, or 

contents ok csr. 

;ador of bad data, or 

; status reg contents. 

;type of error 

;expected data. 

jactual data. 

; restart address after end of PASS 

;&ORDS TO MEMORY PER ITERATION 



XDcScofpff" S ?fIorii7S R 1 C i r ?5S M ° DnLE M * CY11 M»C10521 12-0CT-78 16:25 



12-OCT-78 11:58 

16* 000000 

20* 000000 

22* 000024 

000040 



000224^ 




mm 

177652 



WDFR: 
intp: 
idntim: 



OPEN 

OPEN 

24 

.REPT 

.NLIST 

.WORD 

eLIST 

MODSPt « FmR 

JTHTS ROUTIN 

JTO THE APPR 

START: MOV 

MOV 

MOV 

MOV 

MOV 

40V 

*iOV 

IS: ASR 



SPSIZ 





*? QR .5 S FRm MEMORY PER ITERATION 
?# Of INTERRUPTS PER ITERATION 

lSSRHf-1 I2 e !!ttptcation nu«ber=24 

JMODULE STACK STARTS HERE. 



3S: 



BCC 

MOV 

HOVB 

TSTB 

ADD 

MOV 

MOVB 

TSTB 

ADD 

CMP 

BNE 

BR 

ADD 

ADD 

BR 



JTHIS ROUTINE 

5CSR ADDRESS 

SETCSR: MOV 

MOV 

BNE 

ENDS, 

1$: MOV 

2§: ASR 

BCC 

MOV 

CMP 

ADD 

MOV 

CMP 

ADD 

3SS CMP 

BNE 

4S: aBd 

ADO 



!»«SBTft ,52 jjDgDS th HEM PER ITERATION 

'J28. INTERRUPTS 

*?RT« R 8. T0 POTNT TO THE 1ST VECTOR 

;LOAD Rl WITH DEVICE SELECTION PARAMETER 

HU f U L lZ E T0 RECORD ANY LINES DROPPFD 

>SET UP R2 TO POINT TO JSR TABLE 

?SHTFT SELECT BIT INTO "C« 

;BR IF MOT SELECTED 

;SET UP RCVR INTR POINTER 

!8SL ,l EnS£!8» P «°"™ LEVEL 



#32., WO.- 
g32.,¥DFR 

vecto^rJ 

Rl,BVfcE 
#JSRTAB,R2 



f (R0)+ 
,(R0)« 



„-U,R2 

R2 f (R0)+ 

BR1 € (R0)+ 

(R0) + 

#10, R2 

|JSRTAB+400,R2 

SETCSR 
#10,R0 
j|0,R2 

SETS UP THE JSR t% 
IS INCLUDED AS THE 
ADDR,R0 
D|IDl,Rl 

BEGIN 

#JSRTAB*4,R2 

R0,(R21 
(RO)+,tRO>+ 
#10 C R2 
R0«(R2) 

|JSRTAB+404,R2 

RESTRT 
|10,R0 
#20, R2 



;move pointer 

ifEWWr n n {RE ftlKA* JSR " BLE 

5§o E v T E °P P offi R R pl ' IO " T1 ' "ML 

, P9 I !!J e R 2™ T P RCVR ENTRY FOR NEXT LINE 

;br if not AT the end of twe table? 

^SS«?IJ . UR CSR ADDRFSSES 
JUPDATE VECTOR POINTER 



» II » " •» « " ■"••UK »^tJlBII&|f 

^UPDATE JSR TABLE POINTER 
;GO CHECK FOR END OF TABLE 

BLE SUCH THAT THE APPROPRIATE 

3RD HORD OF EACH ENTRY 

;GET THE FIRST CSR ADDRFSS INTO RO 

jM^WcS 1 !? D T ?fD? E = Vr g E »«■■"«■ -»R»METER 

|sgl I r ?IlL E ?T C I"tS D S?0 FS 5c E ' ,T, " r 
PBR IF LINE NOT SELECTED 



>ESL, RC¥R CSR ADDRESS IN TARLE 
;generate XMTP CSR ADDRESS IN RO 

ffo E ?N E ?'? E rc E ?J !£» fPalB"?! ig r " »• 

feM?? gs« A ss5gisg EvTcE t » ri - e - 

;UPDATE JSR TIBLE POINTER 
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WHS? 



00?764* 002066 
002444* 002062 



000006 001754 



000000' 
000000* 
000100 001731 



3S 



JTHIS ROUTINE CLEARS BUFFERS 

;up all self—"- " 

restrt: jsr 



?UP ALL SELECTED LINES. 
t__„„_ .-_ PC,CLRBUF 



IS: 



10$: 
25: 



3S: 



001704 

000002 001676 

002504* 001670 

002444* 001660 



JSR 
JSR 
CLR 

SM 

MOV 

MOV 

MOV 

MOVB 

JSR 

TST 

BIS 

SIS 

INCB 

MOVR 

INCB 

INC8 

BIS 

DEC 

BPL 

MOV 

CLR 



BREAKS, BEGIN 
BREAKS, BEGIN 



PC,DTIB 

PC,CLRTAB 

TXCNT 

RXCNT 

#RSTAB,SVPTR 

8TQ,QPTRl 

1tq,qptr2 

ACTDEV,r5 

devtab(r0),r2 
j»c,|etadr 

#3130, (R3) 

DCNT(R2) 
|100,4(R3) 

#6,CN?R 



CMPB 
BGT 

CMP 
BLE 
DEC 
BNE 
DEC 



f 64., TXCNT*! 
64., RXCNT 



R4 
2S 
CNTR 



BNE 10S 
JMP ERRCHK 



1G0 TEST FOR END OF TABLE 

AND TABLES, INITIALIZES FLAGS, AND STARTS 

;GO CLEAR XMTR. AND RCVR. BUFFERS 

?SET UP THE ACTIVE DEVICE TABLE* 

;GQ CLEAR TABLES AND QUEUES 

;CLFAR TX TOTAL INTFRRUPT COUNTER. 

;CLEAR RX TOTAL INTERRUPT COUNTER. 

J INITIALIZE RCVR. STATUS TABLE POINTER 

?SET UP XMTR FIFO QUEUE POINTERS 

;GET COUNT OF ACTIVE DEVICES 
JGET AN ACTIVE LINE NO* 
JGQ BUILD CSR ADDRESS IN R3 
;READ RCV DBR TO FLUSH DONE BIT 
5ENABLE RECEIVER INTERRUPTS 
JENABLE MAINT. MODE 

; 

;U? COUNT OF CHARS OUTPUT. 

;COUNT CHARACTERS OUTPUT ON THIS LINE 

;ENABLE TX INTERRUPTS* 

;CQUNf ONE KICKED OFF 

;GO TEST FOR NEXT ONE 

? INITIALIZE COUNTER TO WAIT AT LEAST 

;30 SECONDS BEFORE TIMING OUT 

^TEMPORARY RETURN TO MONITOR.,.. 

;THEN CONTINUE AT NEXT INSTRUCTION. 

5 64 TRANSMITTER INTERRUPTS? 

J NO- BRANCH TO WAIT 

;YES- 64 RECEIVER INTERRUPTS? 

;YES- GO CHECK FOR ERRORS 

;timeout? 

;no- wait SOME MORE 

;EACH PASS OF THE SMALL LOOP TAKES 

;AT LEAST 5 SECONDS 

? BRANCH IF NOT DONE WITH 6 PASSES OF 

?THE SMALL COUNTER 



4$: 

;TR&NSMITTER INTERRUPT SERVICE - ENTERED VIA APPROPRIATE JSR TABLE 
;ENTRY WITH R5 POINTING TO THE CSR ADDRESS* - CONTENTS OF R5 
;GETS QUEUED UP IN FIFO QUEUE AND ROUTINE RETURNS CONTROL BACK TO 

iTHF MONITOR VIA A PIRQ TO DEFER SERVICING XHITTER ~ " 

TINT: MOV R5,gQPTRl ~~ ——— — 



IS: 



MOV 
ADD 
CMP 
BNE 
MOV 
MOV 



- ,@Q - - 
#2,QPTR1 

1tq+40,qptri 

#TQ,QPTR1 
<R6>+,R5 



;STORE CONTENTS OF 



LEVEL 

IN THE QUEUE 



^POINTER AT END OF QUEUF? 
J BR IF NOT 
SRESET THE POINTER 
IRESTORE THE OTHER GUY'S R5 



000700* 000004 000000' 000706' 



£lRQ$, BEGIN, TSERV 
; — . . 



QUEUE UP TO CONTINUE AT TSERV AND RTI 
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062767 000002 001640 



481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 

ill 

m 

515 



022767 
001003 

012001 
011000 
105267 
105260 

mm 

122767 
001427 
105260 
116061 
105267 

mm 

010167 
012767 



001036- 104405 

001044- 
001044' 104400 



001050- 010046 

001052 

001054- 
001062- 
001064- 
001070* 
001072- 
001074- 

oonoo- 



001 

ooi:: 

001' 
00 

oo:. 

00 . 

00 

001 



04- 

IV 

.20- 
24- 

W- 

34' 
36' 



002504' 
002444' 



001601 
002404* 



001632 
001622 



001562 
000002 



177050 



REFERRED XMTR 
JFROH THE FTFO 
TSERV: MOV 
ADD 
CMP 
BNE 
MOV 
IS: MOV 
MOV 
INCB 
INCB 
TSTB 
BPL 
CMPB 
BEQ 
INCB 
MOVB 
INCB 
INCB 
EXITS, 
MOV 
MOV 



022767 
003414 
016700 
011501 

mm 

051160 

116520 
010067 
016505 

mm 



oooooo- 000000 

000000* 



000100 
001464 



01260 
012600 

oooool 



000002 
177775 

000002 

001440 

000002 

802364* 

001420 



SERVICE - THIS ROUTINE RETRIEVES POINTER TO CSR ADDRESS 
QUEUE AND SERVICES THE LINE AT LEVEL 



4$: 



BTCB 
MOV 



lESPfc! 

StQ*40,QPTR2 

STQ,QPTR2 

(R0)*R§ 
TXCNT+t 
TCNT(RO) 

864., TXCNT 

XBUFfRO) 
XBUF(R0),2{R1) 
TXCNT „ 

DCNT(RO) 
BEGTN 
Rl,CSRA 

iRl),ACSR 
************ ft! 



JGET POINTER FROM THE QUEUE 
JHPDATE THE QUEUE POINTER 
;POTNTER AT HTGH LIMIT 
?BR IF NOT 

;reset THE pointer 

;MOV CSR ADDRESS INTO Rl 

>MQV LINE # INTO RO 

? COUNT TOTAL TX INTERRUPTS* 

?CQUNT THE INTERRUPT 

JXHTR READY FLAG ASSERTED? 

J BR IF NOT 

$64 CHARACTERS TRANSMITTED? 

;yes- branch to exit 

^GENERATE NEXT DATA BYTE 
JLOAD THE XMTR BUFFER 
;UP TOTAL COONT OF CHARS OUTPUT. 
JCOUNT CHSRICTERS OUTPUT ON THIS LINE 
SEXTT TO MONITOR. MODULE WAIT 
;SAVE CSR ADDRESS 
;SAVE CONTENTS OF THE CSR 



FOR INTERRUPT. 



SIHKtt 



******** 



************* ******* a* ****** 
5XMTTR FALSE INTERRUPT 

ft* *************** ft* ******** ft ft ft* ****** ft* ft* 



*************** 



EXITS, BEGIN 



;EXIT TO MONITOR* MODULE WAIT FOR INTERRUPT, 



RECEIVER INTERRUPT SERVICE-ENTERED VTA APPROPRIATE JSR TABLE ENTRY 
;STORES PERTINENT INFORMATION IN THE RECEIVER STATUS TABLF THAT HILL 
5RE CHECKED IF 64, CHARACTERS HAVE BEEN RECEIVED 



MOV 

MOV 

CMP 

BLE 

MOV 

MOV 

MOV 

MOVB 

BIS 

MOVB 

MOV 

MOV 

INCB 

INC 

MOV 

MOV 

MOV 

RTI 



64, CHARAC 
R0,-(R6) 
R1,-(R6) 

#64., RXCNT 



(R5 

mir/i*.. 

(R1),-3(R0) 

2(R5),(R0)+ 

R0,SVPTR 

2(R5),R5 

RCNT(R5) 

RXCNT 

(R6)*,R1 

{R6)+,R0 

<R6)*,R5 



JSAVE RO AND Rl ON THE STACK 

J64 CHAR'S RECEIVED? 

;YES- BRANCH 

;NO- GET RCVR STATUS TABLE POINTER 

;GET RCVR CSR ADDRESS 

;SAVE THE RCSR CONTENTS 

;SAVE THE RCVD DATA 

?REREAD CSR IN CASE ERROR SET BETWEEN THE 



>LAST TWO INSTRUCTIONS 
;SAVE TH" " "" 



THE LINE NUMBER 

;SAVE THE UPDHTED STATUS TABLE POINTER 
;GET LINE NO. INTO R5 
;COUNT THE INTERRUPT FROM THIS LINE 
?INCREHENT RX INTERRUPT TOTAL COUNT. 
JRESTORE THE OTHER GUY-S REGISTER 



JRETURN CONTROL BACK TO OTHER GUY 



^RECEIVER ERROR CHECKING AND CLEANUP ROUTINES 



DC&G DEC/m SYSTEM EXERCISER MODULE 
XDCAGQ.Pll '"* ~— "" '* J ' 



12-0CT-78 11:^8 



001X40: 016700 



OOflgO* 042763 
001166* 005300 
001170' 100365 



16102 

oooH 

J04767 
005067 

001236- 104405 

001244 
001250 



Mitt- 



000004 
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JTHIS ROUTINE DISABLES INTERRUPTS FROM ALL ACTIVE LINES 

^RRCHKJ MOV ACTDEV-RO ;GET — — — A — 

DEVTABCR0),R2 *GET „__ 



MOVB 

JSR 

BIC 

BIC 

DEC 

BPL 



ACTDEV-RO 
DEVTABXR0),R2 

mm 



J8B aw^iiru! 

JTURN OFF TRANSMITTER. 
;COUNT ONE GUV OFF 
;BR TIL ALL OFF 





001352 000100 CHK1 

ma- 00l34 ° 

000003 

mm 

000000* 000000 
020000 

001450- 



74 

11 176564 



;THIS ROUTINE SCANS THROUGH THE 64 FNTRY RECEIVER STATUS TABLE 
;CHEC*ING FOR AND REPORTING ANY ERRORS. 



oooooo- 000000 

002524- 



IS. HWi 



CMP 
BLE 
MOV 
MOV 
CLR 
MOVB 



m 



RXCNT,#64. 

#64.,RXCNT 
|RSTAB,R1 

3(R1),R2 

SI 1 ' 



PCsRCVERR 
ERRTYP 

*********** --* 



JSR 

f**l*i**i*i********* 

BIT #BIT13,(R1) 

BEQ 4S 

MSGN$, BEGINNING 

MOV nJi 

BR «*4 

ASL Rl 

DEC R2 

BPL 3$ 

BIC Rl#DVTCE 

JMP ENPS 



;MAKE SURE COUNT IS NO LARGER THAN TABLE 

;GET STATUS TABLE POINTER 

^INDICATE NO HARDWARE FAILURES YET. 

JGET LINE NO. INTO R2 

S ERROR SET? 

5 BRANCH IF NOT 

;GO SETUP TO REPORT ERROR 

'"NKNOWN ERROR 

************************************** 

{CARRIER TRANS + RING * OVERRUN 
******************************************* 

*RING INDICATOR SET? 

JHRANCH IF NOT 

^ ASCII MESSAGE CALL WITH COMMON HEADER 

;SETUP TO DROP LINE 

1SHIFT BIT TO ALLIGN WITH INDICATOR IN DVICE 



PC.RCVERR 
************* 



jdrop the line 

JSKIP REST OF CHECKING SINCE RING INDICATOR 

jMMPtt EAWWTSB" T0 BE B,D 

jBR IF DONE HAS SET 
;SETUP FOR ERROR REPORT 
1***1******1******** 



TSTB 

BMI 

JSR 

****** *************** ********************* ************ 

HRDER$,BEGIN,MULL {RECEIVER FALSE INTERRUPT 

. ************************************************ 

INCB 
TST 

BNE 



********* 



*************** 



BICB 
BICB 
CMPB 

BEQ 
JSR 
CMP 
DEC 
BNE 



RBUP(R2),2( 

PC f DATBAD 

(R1)+ # (R1)* 

RXCNT 



;BUMP EXPECTED DATA 

; HARDWARE ERRORS? 

{DO NOT REPORT DATA ERRORS THEN. 

R2 > **4§K SC£- B ns <7:5> to check only 

;five btts on 
rl) ;did rcvd data check ok? 
;br if yes 

;GO REPORT DATA ERROR 

;POINT Rl TO NEXT TABLE ENTRY 

J ALL CH.ARS RECEIVED CHECKED? 



GO CHECK NEXT ENTRY 



001400- 016701 001300 



{THIS ROUTINE REPORTS ANY LINE RECEIVING AN INCORRECT NUMBER OF INTERRUPTS 
CKLINS: MOV ACTDEV,R1 ;GET ACTIVE DEVICE COUNT 



DCAG DEC 
XDCAGO.P 



/Xll SYSTEM EXERCISER MODULE 
11 12-OCT-78 11:58 



001404- 116102 
126262 

ttMH 

126262 

SSifg? 

005301 
pQ360 



mm- 

001440; 
001444' 



002664' 
002364- 



000066 
002404' 
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00167 000260 



002424- 4$: 



MOVB 
CMPB 

B£S 

JSR 

CMPB 

BEQ 

JSR 

DEC 

BPL 

JMP 



DEVTAB(Rl),R2 ; 
RCNT(R2),DCNT(R2) 



PC-BADR |G< 

TCNT(R2),DCHT(R2) 



GET ACTIVE DEVICE LINE NO. 

{CORRECT NUMBER OF RECVR INTERRUPTS? 
{BR IF YES 
-~ h REPORT BAD RCVR 

;CORRECT NUMBER OF XMTR INTERRUPTS? 
BR IF YES 

6r~ 



3S 
ENPS 



;go report bad xmtr 
;count one guy checked 
{br til all checked 
{go check for end of pa 



0014 
0014 



50- 001454- 
52- 177777 

mnv-mm ami un® 

mw m m »«!» 

001512- 

mm'- 8? «|? mm 

001522- 116267 002424' 176352 
001530' 116267 002364' 176346 

001536- 012767 000014 176342 

001544- 104405 000000' 000000 



001552- 000207 




RING! MRING 

MRING: .ASCIZ /1RING SET- BAD LINF DROPPED!/ 



012767 
104405 



000040 
176312 

MHM*. i?6 3 3o! 

000014 176276 
OOOOOO' 000000 



001616- 000207 

mm- mm 



.EVEN 

{ROUTINE TO REPORT BAD LINES (TOO MANY OR TOO FEW INTERRUPTS) 
BADR: JSR PCGETADR {GO BUILD CSR ADDRESS 
MOV R3,CSRA ;SAVE CSR ADDRESS 

MOVB DCNT(R2),RCSR CHARACTERS XMTD 
MOVB RCNT(R2),ASTAT ; # OF RCVR INTERRUPTS 



#14, ERRTYP {WRONG f OF INTERRUPTS 

***************************************** 



S ******************** ************************************* ****** 



;NOTE THAT CSRC VALUE IS f OF CHARACTERS 
{TRANSMITTED, AND STATC VALUE IS 8 OF 
{RECEIVER INTERRUPTS 



RTS 

JSR 

CMP 

MOV 

MOVB 

MOVB 



PC r GETADR 

(R3)+,(R3)+ 

R3#CSRA 

DCNT(R2),ACSR 

TCNT(R2),ASTAT 



;RETURN TO CALLER 

{GO BUILD CSR ADDRESS 
{MAKE IT A XMTR CSR ADDRESS 
;SAVE CSR ADDRESS 
{CHARACTERS XMITTED 
{# OF XMTR INTERRUPTS 



MOV #14, ERRTYP {WRONG f OF INTERRUPTS 

&*********************«*»**********************«************& 
RDERS, BEGIN, NULL 
• ******************** 

{NOTE THAT CSRC VALUE IS $ OF CHARACTERS 
{TRANSMITTED, AND STATC VALUE IS * OF 
TRANSMITTER INTERRUPTS 



MOV 
ASL 



B' M 



; RETURN TO CALLER 

INE NO. 
CSR ADDRESS 



iSiM 1 "-"* 



DCAG DEC/X11 SYSTEM EXERCISER MODULE 
xnCAGQ.Pll 12-OCT-78 11:58 
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88 8MB- 

630 001630' 

631 001634' 

633 

634 001636* 

Si! mtiV 



m 

6703 



0063 
0063, 
066703 
000207 



mm 




177756 

mm 



176210 
176200 



104404 000000- 
000207 



176154 



oooooo- 

176474 



002524' 
002504- 



002544- 
176454 



ASL 
ASL 
ADD 
RTS 



R3 

R3 

ADDR,R3 

PC 



^RETURN TO CALLER 



;RODTINE TO REPORT RCVR DATA COMPARE ERRORS 



datbad: 



JSR 

HOY 

MOVB 

TST 

MOV 

TST 

MOV 

ADD 

MOVB 

MO 9 



PC,GETADR 
R3*CSRA 
2(R1),AWAS 
(Rl) + 
Rl#WASADR 

ERBUP,R5 
2,R5 
(R5),ASB 

*****$******«*** 



;GO BUILD CSR AD 
;SAVE CSR ADORES 



|RESS 



ATERS, BEGIN 
. ************ 

RTS 



******** 



PC 



jSAVE BAD DATA 

;GENERATE RCVR DATA ADDRESS 

;SAVE ADDRESS OF BAD DATA 

JRESET Rl 

^GENERATE ADDRESS OF GOOD DATA 

;SAVE GOOD DATA 
JSAVE ADDRESS OF GOOD DAT* 
********************************** 

;DATA ERROR! H 

********************************** 

;RETURN TO CALLER 



f******** 
********* 



;ROOTIHE TO SETUP FOR RECEIVER ERROR PRINTOUTS 

MOV R3,CSRA ;STUFF IT IN CSRA 

MOV (Rl),ACSR ;GET CONTENTS IN ACSR 

RTS PC JRETURN TO CALLER 

;THIS ROUTINE CHECKS FOR AND REPORTS END OF PASS 
ENPS: 

ENDITS, BEGIN 



;SIGNAL END OF ITERATION. 
jMONITOR SHALL TEST END OF PASS 



STHIS ROUTINE RESTARTS EACH 64 CHAR XFR SEQUENCE 

*__.!.._ ._.. JRESVNC DATA FOR NEXT PASS 



MOV 

MOV 

MOVB 

CMP 

BNE 

JMP 



tRBnF,R0 
XBUF,R1 



;TABLES AND BUFFERS 
128. 



RSTAB: 

rcnt: 
tcnt: 
dcnt: 

tq: 

xbuf: 
rbuf: 



.BLKW 
.BLKW 
.BLKW 
.BLK« 



-BL^Ctf 

B BL*W 



;DONE 16 BYTES? 
;BR IF NOT 
J RESUME. 



;128 HORDC64 ENTRTES)RCVR STATUS TABLE 
JRCVR INTERRUPT COUNTERS 
;XMTR INTERRUPT COUNTERS 
CHARACTER COUNTERS 

;16 WORD XMTR FIFO QUEUE 

;16 BYTE XMTR DATA BUFFERS 
;16 BYTE RCVR DATA BUFFERS 



J 



JPOINTERS, CONSTANTS, AND VARIABLES 



DCAG DEC/X11 SYSTEM EXERCISER MODULE 
XDCAG0.P11 12-OCT-78 11:58 
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002544- 
002546- 

885113- 

002554- 
002556- 
002560- 



000000 
000000 



000000 
000000 
000000 



COUNT: 
TXCNT: 

mv 

SVPTR: 
QPTR1: 
QPTR2: 



OPEN 
OPEN 



Open 
open 

OPEN 
OPEN 



;EHD OF PASS COUNTER 

;TX TOTAL INTERRUPTS COUNTER (HIGH BYTE). 

JTOTAL CHARACTERS TRANSMITTED (LOW BYTE) 

Hkimhircfinffii' ct "" ,TE ''- 

;TEMP STORAGE FOR RSTAB POINTER 
JXMTR FIFO QUFUF POINTER - LOAD 
;XMTR FIFO QUEUE POINTER - UNLOAD 



002566' 
002570' 
002574' 
002576' 



012700 
005020 
022700 
001374 
000207 



002616 

8858? 

002624 

mm 

002634 
002640 

882841 

002650 
002652 

hie 

002706- 



002504- 
002544- 



005000 

88118? 

005101 

mm 

022700 
001003 

8J8J8? 

006202 
103367 

-- mm 

- 000763 

JO 

000000 



002710 



002724 

mw 



000054 
000020 
000036 




JSUBROUTINE TO CLEAR DATA BUFFERS AT BEGINING OF EACH NF8 PASS 

&LRBUF: MOV §XBUF,R0 JSET UP RO TO POINT TO BEGINING 

IS: CLR (RO)* ?CLEAR A WORD 

CMP #RBUF*20,RO ?END OF RCVR BUFFER? 

BNE 1$ ;BR TIL ALL CLEAR 

RTS PC JRETURN TO CALLER 

JSUBROUTINE TO CLEAR TABLES AND QUEUES 

CLRTAB: MOV #RSTAB,R0 ;SET UP RO TO POINT TO BEGINING 

IS: CLR (RO)* ;CLEAR A WORD 

Cmp }tqmo,ro Send? 

bne is ?br if not 

rts pc jreturn to caller 



;THIS ROUTINE SETS UP AN ACT 
JAND WHICH LINES WERE ACTIVE 
SERROR CHECKING ROUTINES FOR 



DTAB: 


CLR 


RO 




com 

CLR 


vt 




COM 


Rl 




MOV 


DVICE, R2 


IS: 


INC 




CMP 


J20,R0 




BNE 




MOV 


Rl, ACTDEV 




RTS 


PC 


2$: 


ASR 


R2 




BCC 


IS 




INC 

MOVB 


R0 # DEYTAB(R1) 




BR 


IS 


devtab: 


.BL*W 


8. 


ACTDEV: 


OPEN 




dvice: 


OPEN 




Kifcl 


NK TABLE 
'HE INTER 


CONSISTING OF 
RUPTS TO THE CI 


jsrtab: 


JSR 

8 

JSR 



R5/RINT 




R5,TINT 





JSR 


R5,RINT 



IVE DEVICE TABLE TO REMEMBER HOW MANY 
DURING TEST - IT IS USED DURING THE 
VARIOUS PURPOSES 

;SET UP RO AS TOTAL LINE COUNTER 

^INITIALLY SET TO MINUS ONE 

;SET UP Rl AS ACTIVE LINE COUNTER 

;TNITIALLY SET TO MINUS ONE 

*GET DEVICE SFLECTION PARAMETER 

JCOUNT ONE DEVICE 

J16 LINES CHECKED? 

?BR IF NOT 

;SAVE THE COUNT OF ACTIVE LINES 

JRETURN TO CALLER 

?SHIFT SELECT BIT INTO "C 

;BR IF NOT SELECTED 

iSWBl KWi HB5 no. » the »■» 

JGO TEST NEXT LINE 



;16 BYTE ACTIVE DEVICE TABLE 
;STORES COUNT OF NO. OF ACTIVE LINES 
jDEVICE SELECTION INDICATOR 

2 JSR-S (16 RCVR AND 16 XMTR) THAT 
MON SERVICE ROUTINES 

JRECETVER LINK FOR LINE 

?SET UP WITH RCVR CSR ADDRESS 

;LINE NUMBER 

jXMTR LINK FOP LINE 

;SET UP WITH XMTR CSR ADDRESS 

?LINE NUMBER 

;LlNK FOR LINE 1 



K8MSH" 'ISWOTKH 
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740 002734* 000000 



H 

748 
749 
750 
'51 
752 
753 
754 
755 



759 
760 
761 

m 

764 
765 

m 

78 

w? 

772 
773 

?B 

776 
777 

?« 

780 
781 
782 

Mi 

785 



003024* 

mm'- 

003034; 

oololo* 

003044* 

mm m - 

003054* 
003056- 
003060- 
003064- 

JHMJ: 

003074' 



mm 

000000 
000000 

m 

WW 

000000 

Wl 

ooonon 
000 



1 



nm 

002744* 

88??3§: 

002754* 

II": 

«<-: 

88I3S§- 

003004- , 

88J8SS- Ms« 

003014* 000000 

000005 

0000,. 

mm 

000000 
000005 
004567 
000000 

mm 

000000 

m 
m 

000007 

mi 

000007 

004567 

000000 

000Q " 

004 s 

000 



003076 
003100 
003104- 



788 
789 

??? 

792 
793 
794 
795 



88IHS: 

urn 

003124' 

MP-' 

003134- 

nmr- 

003144- 

mw- 

003154- 
003156' 



ASM 

0000 

000010 

nml 

000011 

mm 

000011 
004567 
000000 
000012 



175702 
176074 
175662 
176054 
175642 
176034 
175622 
176014 
175602 
175774 
175562 
175754 
175542 
175734 
175522 
175714 
175502 
175674 



3sR 

| S R 

JsH 

°3 

t n 

4 

JSR 


4 

JSR 


JSR 
JSR 

8 

JSR 


JSR 



7 

JSR 



7 

JSR 



\0 

JSR 



f R 

11 

JSR 



11 

JSR 

12 



R5 # TIST 
R5,RINT 
R5,TIMT 
R5,RINT 
R5,TINf 
R5,RIHT 
R5,TINT 
R5,RINT 
R5,TINT 
R5,RINT 
R5,T1NT 
R5,RINT 
R5,TIST 
R5,RINT 
R5,TINT 
R5,RINT 
R5,TINT 
RS,RINT 



}HHK FOR LINE 2 



JLINK FOR LINE 3 



JLIHK FOR LINE 4 



>LINK FOR LINE 5 



JLIMK FOR LINE 6 



;LIHK FOR LINE 7 



JLINK FOR LINE 10 



;LINK FOR LINE 11 



;LINK FOR LINE 12 



DCAG DEC/X11 SYSTEM EXERCISER MODULE 
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796 003160- 004567 175462 

797 003164- QQ0000 

m mm' mm 
m mm mm 

802 003200- 004567 

"H mil- m 

in mm m 

000 



806 

m 

809 



24- 000000 
!2f 



10 003226- 0000 

U 88fe!-P L oo 

13 003236- 0000.-- 



-3236- 000015 

__. 003240- 004567 

m mm m 

i II-: m 

HI mm- 8888j°8 

825 003276- 000017 

826 003300- 004567 

is uisr-iiitn 



175654 
175442 
175634 
175422 
175614 
175402 
175574 
175362 
175554 
175342 



MACY11 30AC1052) 12-0CT-78 16:25 
R5 # TINT 
R5,RIMT 
R5,TINT 
R5 # RINT 
R5,TIHT 
R5,RIHT 
R5 # TIHT 
R5,RIHT 
R5,TIBT 
R5 # RINT 
R5,TI*T 



JSR 


lia 

fs 
JSR 



JSR 



JSR 

U 

JSR 



JSR 




SR 



JSR 

?6 
JSR 

h 

JSR 
h 



;LINK FOR LINE 13 



?LINK FOR LINE 14 



;link for line 15 



JLINK FOR LINE 16 



?LINK FOR LINE 17 



.END 
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ACSR 

ACTDEY 

ADDR_ 

ASTAT 
AtfAS 

BAD» 
BADT 
8FGIN 



BTTO 

BIT! 

BITIO 

BIT" 

BIT 

BIT 



1:81 



BIT14 = 
BITlS = 
BIT2 = 
BIT3 = 
BIT 4 = 
BIT5 = 
BIT6 = 
BIT7 = 

Slf! = 

BREAKS^ 

BR1 

BR2 

BTODS = 

CDATAS= 

CHKl 

CKLINS 

CLRBUF 

CLRTAR 

CNTR 

CONFIG 

COUNT 

CSRA 

DATBAD 

DATCK§= 

DATERS= 

DCNT 

DEVTAB 

DTAB 

DVICE 

DYIOl 

ENDITS= 

ENDS = 

ENPS 

ERRCHK 

ERRTYP 

EXITS = 

GETADR 

GETPAS= 



002704R 

Q00p06R 



000104R 
1R 



mm 

002000 
-"4000 
-_0000 
020000 
040000 
100000 
"00004 



000010 
000020 
000040 
000100 
000200 
000400 
001000 
104407 

mep 

104421 

104412 

001172R 

001400R 

Q02562R 

mm* 

Q00056R 

[ilk" 

104404 

002424R 

002664R 

002616R 

002706R 

000014R 

104413 

104410 

001730R 

001140R 

000106R 

104400 

001620R 

104415 



lilt 



482* 597* 613* 653* 



642* 
598* 

658 



433 

370 



695# 

IW 



481* 
634ft 

645 

in* 
w 

364 
658 
389 
581 

U$t 

480 
519 



1 



434 
374 



573 
572 

715 
387 



657ft 

536* 

489 

595 



576 
724* 

729ft 



554* 
610 



m 



27# 



600* 
626ft 



613 



616* 
634 



651 
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GVBUFS- 

HRDCNT 

HRDERS: 

HRDPAS 

ICONT 

ICOUNT 

IDNUH 

INIT 

INTR 

JSRTAB 

MAP22S: 

MODNA« 

MODSP 

MRING 

MSGN~ 

MSGS 

MSGS 

NULL 

OPEN 



104414 
000044R 
104405 
OR 



8igg 



000040R 

00Q122R 

000030R 

000120R 

002710R 

104416 

0000Q0R 

000224R 

°104403 R 
104402 

hum 

000000 



OTOAS = 
PASCNT 
PTROS = 
POPSP = 
P0PSP2= 
PRTY = 
PRTYO = 
PRTYl = 
PRTY2 = 
PPTY3 = 
PRTY4 = 
PRTY5 = 
PRTY6 = 
PRTY7 s 
PS = 
PSW = 
PUSH = 
PUSH2 = 
QPTR1 
QPTR2 
RANDS = 
RANNUM 
RBUP 
RCNT 
RCVERR 
RESTRT 
RESYNC 
RRS1 
RES2 



RSTAB 
RSTRT 
RXC«T 



48S 



34420 
.00034R 
000004 

mm 

000000 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

177776 

005746 

024646 

002556R 

002560R 

000054R 
00252 4R 

000434R 

0?io56R 
000060R 
00145QR 
001050R 



358S 
323$ 
358ft 

m\ 

321$ 
35Q# 

mi 

366 



358« 
358# 
358ft 
358$ 
358* 
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538 556 602 618 



362* 
377 



3'fl 

542 



451* 
463 



in* 

553 
401 



811 
530 

437 



390 399 733* 



538 556 602 618 

iu m m m m m* m 

728 72 9 



452* 
464* 



453 
465 



US II 



m 



455* 
467* 



563 640 

598 673» 

650ft 

408ft 660 



8?7 18 7S1 

672ft 702 

496 508* 527 



690ft 
691# 



757 
529* 



763 
567* 



769 775 

687# 



781 



793 



0>- 



) 
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QQ0102R 
000344R 
000042R 



46R 



000046R 
000032R 
000040 

000020R 
000022R 
000024R 
000224R 
000026R 
000440R 
002554R 
QQ0062R 

mm 

000070R 
000072R 

mm 

000052R 



46 R 



002444R 

mm, 

002546R 
000010R 

mim 

000114R 
00Q005R 
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643* 
3869 



668 
498 



m 

814 
415 

463» 
424* 
363 

IW 

360* 
423 



6R9* 



820 826 
453 455 



«*• 



435 



476* 
672S 



470* 



477 
673* 



754 
465 



664 
674S 



760 
467 



679* 
675* 



766 
677* 



695 
677f 



772 

704 



000000 
003310 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 



KUCAG0, XDCAGO/SOL/CRF: ,SYM= 
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CORE 
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